;; This init file to be called only on Windows systems.

;; NOTE: this should be only for Windows.
;; Requires download of font pack from:
;;   http://www.microsoft.com/download/en/details.aspx?displaylang=en&id=17879
;; Idea from:
;;  http://oscarbonilla.com/2008/01/beautiful-emacs-windows-edition/
(set-frame-font
 "-outline-Consolas-normal-r-normal-normal-14-97-96-96-c-*-iso8859-1")

(setq default-directory (format "c:/Users/%s" (user-login-name)))

;; Disable the fullscreen stuff, no longer works with Emacs24?
(if (eq 1 0)
   (progn
     (require 'w32-fullscreen)
     (global-set-key (kbd "C-c f") 'w32-fullscreen)

     (setq w32-fullscreen-toggletitle-cmd
	   "C:/Program Files/Emacs/emacs-23.3/site-lisp/w32toggletitle.exe")

     ;; http://www.martyn.se/code/emacs/darkroom-mode/
     (require 'darkroom-mode)
     (setq darkroom-mode-face-foreground "gray50")
))

;; Disabled because also causes issue with loading.
(if (eq 1 0)
    (progn
      ;; (setq browse-url-browser-function 'browse-url-generic
      ;;       browse-url-generic-program "google-chrome.exe")
      (require 'google-chrome)))

